      LOGICAL BOYSEL
      PARAMETER (MXBOYS = 10)
      INTEGER NBOYS(8),BOYSORB(MXBOYS,8)
      COMMON /CLOCAL/ NBOYS, BOYSORB, BOYSEL
